<% news_no = trim(Request("news_no")) Dim conn, rs, Provider, DBPath, SQL Set conn = Server.CreateObject("ADODB.Connection") Provider = "Provider=Microsoft.Jet.OLEDB.4.0;" DBPath = "Data Source=" & Server.MapPath("SysDB.mdb") conn.Open Provider & DBPath Set rs = Server.CreateObject("ADODB.Recordset") SQL = "Select TOP 1 * from News where news_no =" & CLng(news_no) rs.Open SQL,conn,3,3 %> 台灣敏愛蝶古巴特-最新消息 Taiwan MingAi Decoupage-News
 
<%=rs("subject")%>
<% memo=Replace(rs("memo"),vbCrLf,"
") If memo = "" then %> <% Else %> <% End If %>
目前尚無任何公告訊息！<%=memo%>


　　
<% set conn=nothing set rs=nothing %>